1 DV=PEEK(186):IFDV<8THENDV=8
2 POKE53281,0:POKE53280,0:PRINT"[147]"
3 GOSUB60000:FORT=1TO1000:NEXT
4 SYS57812"SSX 98",DV,0:POKE780,0:POKE781,16:POKE782,205:SYS65493
6 DIM M$(9),R$(4):F=0:FF=0:S=54272:GOSUB9900
7 SP$="          "
10 FORI=1TO5:READM$(I):NEXT
11 DATA "[208]RINT [208]UZZLE          "
13 DATA "[208]RINT [211]OLUTION        "
15 DATA "[210]EAD [201]T               "
16 DATA "[195]REDITS               "
17 DATA "[204]OADSTAR              "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]            [203]EYWORD [211]EARCH            [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                        [221]"
105 FORI=1TO7:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO6:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,6
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THENGOSUB9930:GOTO200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=5:R=9
170 IFK$=""THENM=M+1:R=R+1:IFM>5THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1):GOSUB9910
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 ONMGOTO1000,2000,12000,500,11000
205 GOTO150
500 SYS52496,7
525 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(7)"[221]  [208]UZZLE [194]Y [194]. [211]CHULAK  [221]"
535 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52499,7:GOSUB28:GOTO155
555 :
1000 GOSUB9000:IFPPTHEN155
1005 GOSUB6000
1007 OPEN4,4
1010 PRINT#4,SP$;"Z F L S R E N O Q P O M Y W W C":PRINT#4
1020 PRINT#4,SP$;"N G A R A H T R G I T N T T A O":PRINT#4
1025 PRINT#4,SP$;"S A T H O M E R M C F D I N K Y":PRINT#4
1030 PRINT#4,SP$;"H U I O I N D E G A S A G E V V":PRINT#4
1035 PRINT#4,SP$;"L G R T R A U T S S T V Q G W N":PRINT#4
1036 PRINT#4,SP$;"H I Z U I O T D A S Y I Z R W P":PRINT#4
1045 PRINT#4,SP$;"M N T H L T C N E O Q N S A X F":PRINT#4
1055 PRINT#4,SP$;"A Y O G M L L A G A H C E S S Y":PRINT#4
1060 PRINT#4,SP$;"O O U O T T E R O T N I T B E V":PRINT#4
1065 PRINT#4,SP$;"U O N G I N Y B V B U Q D L M V":PRINT#4
1070 PRINT#4,SP$;"F E H N N K E M R S D W G B A E":PRINT#4
1071 PRINT#4,SP$;"T S Y A N R L E I U N R X S N C":PRINT#4
1076 PRINT#4,SP$;"D X Z V N H P R F R E E M R E V":PRINT#4
1077 PRINT#4,SP$;"Z E Y I A T O Y H C E G B C T H":PRINT#4
1078 PRINT#4,SP$;"C A N D S M C F O X L H E U R M":PRINT#4
1079 PRINT#4,SP$;"R I O N E R Y N T D K J W L R Z"
1080 PRINT#4:PRINT#4
1081 PRINT#4,SP$;"WORD LIST":PRINT#4
1082 PRINT#4,SP$;"BERNINI    DAHL       KLEE       RENOIR     VAN GOGH"
1085 PRINT#4,SP$;"BRUEGEL    DEGAS      MANET      RUBENS     VERMEER"
1100 PRINT#4,SP$;"CEZANNE    DUFY       MATISSE    SARGENT"
1110 PRINT#4,SP$;"CHAGALL    EL GRECO   MIRO       STUART"
1115 PRINT#4,SP$;"COPLEY     GAUGIN     MONET      TINTORETTO"
1120 PRINT#4,SP$;"COROT      GOYA       PICASSO    TITIAN"
1125 PRINT#4,SP$;"DA VINCI   HOMER      REMBRANDT  TURNER"
1500 PRINT#4:CLOSE4:GOTO155
1505 :
2000 GOSUB9000:IFPPTHEN155
2005 GOSUB6000
2007 OPEN4,4
2010 PRINT#4,SP$;". . . . . . . . . P . . . . . .":PRINT#4
2020 PRINT#4,SP$;"N G . . . . . R . I . . . T . .":PRINT#4
2025 PRINT#4,SP$;". A T H O M E R M C . D . N . .":PRINT#4
2030 PRINT#4,SP$;". U I O . N D E G A S A . E . .":PRINT#4
2035 PRINT#4,SP$;". G R T R A U T S S T V . G . .":PRINT#4
2036 PRINT#4,SP$;". I . U I O . D . S . I . R . .":PRINT#4
2045 PRINT#4,SP$;"M N T H . T C N . O . N S A . .":PRINT#4
2055 PRINT#4,SP$;"A Y O G M L L A G A H C . S . .":PRINT#4
2060 PRINT#4,SP$;". . . O T T E R O T N I T . E .":PRINT#4
2065 PRINT#4,SP$;". . N G . N Y B . . . . . L M .":PRINT#4
2070 PRINT#4,SP$;". E . N N . E M R S D . G . A .":PRINT#4
2071 PRINT#4,SP$;"T . . A . R L E . U N R . . N .":PRINT#4
2076 PRINT#4,SP$;". . Z V N H P R F R E E M R E V":PRINT#4
2078 PRINT#4,SP$;". E . I A . O Y . C E G B . T .":PRINT#4
2080 PRINT#4,SP$;"C . N D . . C . O . L . E U . .":PRINT#4
2090 PRINT#4,SP$;"R I O N E R . . . . K . . L R ."
2500 PRINT#4:CLOSE4:GOTO155
2505 :
6000 OPEN4,4
6005 PRINT#4, "          #98 - KEYWORD SEARCH"
6006 PRINT#4
6010 PRINT#4:CLOSE4:RETURN
9000 SYS52496,7:PP=1
9005 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 PRINTTAB(7)"[221]  [208]RINTER [210]EADY? [Y/N]  [221]"
9025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 GETK$:IFK$=""THEN9035
9036 IFK$="Y"THENPP=0
9040 SYS52499,7:GOSUB28:RETURN
9045 :
9800 POKE214,21:PRINT:PRINTLN$;
9805 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9810 GETK$:IFK$<>CHR$(13)THEN9810
9815 RETURN
9820 :
9900 FORI=0TO24:POKES+I,.:NEXT:RETURN
9910 POKES+24,15:POKES+5,9:POKES+6,0
9915 POKES+1,19:POKES,63:POKES+4,17
9920 FORT=1TO50:NEXT:POKES+4,16:RETURN
9930 POKES+24,15:POKES+5,9:POKES+6,0
9935 POKES+1,48:POKES,0:POKES+4,17
9940 FORT=1TO50:NEXT:POKES+4,16:RETURN
10000 OPEN15,8,15,"S0:SEARCH 98":CLOSE15:SAVE"0:SEARCH 98",8:END
11000 POKE214,15:PRINT
11005 PRINTTAB(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11015 PRINTTAB(7)"[221]  [193]RE YOU SURE?  [Y/N]  [221]"
11025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52499,6:GOTO150
11037 PRINT"[147]":POKE53272,23
11040 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
11050 IFER%<>63THENPRINT"[147]":END
11055 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
11060 PRINT"RUN"
11065 POKE631,13:POKE632,13:POKE198,2:END
12000 SYS52496,7
12001 GOSUB26
12005 PRINT"[221][156]            [203]EYWORD [211]EARCH            [146][221]";
12010 PRINTLN$;
12015 PRINT"[155]   [212]HE OBJECT OF [203]EYWORD [211]EARCH IS
12020 [153]"LIST TO FIND AND CIRCLE ALL OF THE
12025 PRINT"[155] WORDS IN THE GRID THAT ARE LISTED
12030 [153]"LIST BELOW.  (null)HE WORDS WILL RUN IN THE
12065 PRINT"[155] HORIZONTAL, VERTICAL AND DIAGONAL
12070 [153]"LIST DIRECTIONS AS WELL AS FORWARDS AND
12075 PRINT"[155] BACKWARDS.
12080 [153]"LIST   (null)HE SOLUTION PRINTOUT WILL SHOW
12085 PRINT"[155] ONLY WHERE THE KEY LETTERS ARE BUT
12086 [153]"LIST THE WORDS WILL NOT BE CIRCLED.
12088 PRINT"[155]   [212]HE THEME OF THIS MONTH'S PUZZLE
12090 [153]"LIST IS (null)ATNRIGHT$(null)(null)VAL(null)(null).
12100 GOSUB9800
12105 SYS52499,7:GOSUB28:GOTO155
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[203] [197] [217] [215] [207] [210] [196]   [211] [197] [193] [210] [195] [200]":Z$(1)="BY [194]ARBARA [211]CHULAK
60040 Z$(2)[178]"(null)1.0 (LEN) 1992 BY (null)OFTDISK, RIGHT$NC."[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN